home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 05.zip
/
BS1 part 5
/
IM_Install3.adf
/
piarc.LZH
/
setframe.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-08-20
|
457b
|
21 lines
/* setframe.rexx */
address 'IM_Port';
numberval = getclip(sfctarget);
if numberval = '' then numberval = 0;
options results;
'asknumber "Start where on the tape?","'||numberval||'"'
numberval = result;
options;
call setclip(sfctarget,numberval);
incrval = getclip(sfcincr);
if incrval = '' then incrval = 1;
options results;
'asknumber "Record frames how many times?","'||incrval||'"'
incrval = result;
options;
call setclip(sfcincr,incrval);
'finish';